home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
asmutil
/
afloat.zip
/
FABSVAL.ASM
< prev
next >
Wrap
Assembly Source File
|
1988-03-14
|
694b
|
37 lines
PAGE ,132
;----------------------------------------------------------
; FABSVAL -- version for use with assembly language programs
;
; Copyright Bob Kline 1988
;
; Purpose:
; Obtain absolute value of 4-byte real
;
; Input:
; DX:AX contains 4-byte real to be converted
;
; Output:
; Absolute value of 4-byte real in DX:AX
;
; Other registers used:
; none
;
; Other procedures called:
; none
;----------------------------------------------------------
PUBLIC FABSVAL
.MODEL SMALL
.CODE
FABSVAL PROC
; this is all there is to it!
AND DX,7FFFh
RET
FABSVAL ENDP
END